unit unitfiltropuesto;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DbCtrls,
  sqldb, db, unitmainform;

type

  { TFormFiltroPuesto }

  TFormFiltroPuesto = class(TForm)
    Datasource1: TDatasource;
    DBComboBox1: TDBComboBox;
    SQLQuery1: TSQLQuery;
    procedure DBComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormFiltroPuesto: TFormFiltroPuesto;

implementation

{$R *.lfm}

{ TFormFiltroPuesto }

procedure TFormFiltroPuesto.FormShow(Sender: TObject);
begin
  if SQLQuery1.Active = true then
    SQLQuery1.Close;

  SQLQuery1.SQL.Text := 'select pst_nombre from puesto order by pst_nombre';

  SQLQuery1.Open;

  DBComboBox1.Clear;

  DBComboBox1.DataField := 'pst_nombre' ;

  while not SQLQuery1.EOF do
  begin
    DBComboBox1.Items.Add(SQLQuery1.FieldByName('pst_nombre').AsString);
    SQLQuery1.Next;
  end;

  DBComboBox1.Text := '';
end;

procedure TFormFiltroPuesto.DBComboBox1Change(Sender: TObject);
begin
  close();
end;

end.

